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E $SATSSS91 SATS SYSTEM SERVICE TESTS $ADJSTK (SUCC S.C.) 
T #1002000" 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


ALL RIGHTS RESERVED 


YX ® 
® ® 
® ® 
® ® 
® ® 
‘ OFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
® N ACCORDANCE WITH THE TERMS OF SUCH. LICENSE AND WITH THE 
* ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
. THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. : 
® e 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. . 
® my 
® © 
® ae 
* ® 
x * 
'* * 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


BILITY 
IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
ABSTRACT: 
THIS wit CONTAINS SUBROUTINES WHICH, WHEN LINKED 

WITH SUCCOMMON.OBJ TEST MODULE SATSSS91 TO TEST SUCCESSFUL 
OPERATION OF THE Shousik SYSTEM SERVICE. THE SERVICE IS INVOKED 
UNDER VARIOUS INPUT DITION TH VARYING INPUT PARAMETERS. ONLY 
SUCCESSFUL STATUS CODES ARE EXPECTED IN THIS TEST MODULE. CORRECT 
OPERATION OF T VICE FOR EACH OF ITS ISSUANCES IS VERIFIED BY 

ECKING NORMAL STATUS CODE, EXPECTED RETURN ARGUMENTS 


C FOR AN SS 
; AND EXPECTED FUNCTIONALITY PERFORMED. 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 


; AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: MAY, 1978 
; MODIFIED BY: 


. = VERSION 
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4 .SBTTL DECLARATIONS 

: ; INCLUDE FILES: 

8 : SPRVDEF ; PRIVILEGE BIT DEFINITIONS 

SPHDDEF + PROCESS HEADER OFFSETS 

60 ; SPSLDEF ; ACCESS MODE DEFINITIONS 
‘ ; MACROS: 

4: 
f ; EQUATED SYMBOLS: 
67 ; 
68 ; THE FOLLOWING ERROR COD DES MUST AGREE WITH THE CASE STATEMENT 
69 ; AT THE END OF THE VERIFY SUBROUTINE. 

71 SCODE_ERR = 1 ; SADJSTK STATUS cope ogRROR 

es NEWADR_ERR = é t NEWADR ARGUMENT ERR 

73 ADJUSP~ERR 2 : ADJUSTED USER SP ERR ROR 

74 SCODE2~ERR =4 : i eNp SADJSTK STATUS CODE ERROR 
£3 RESTORE_ERR = 5 ERROR IN RESTORING ORIGINAL USP VALUE 
77 : OWN STORAGE: 

78 e 
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P 
EP=19 as dj 


UETPSY.SREJSATSSS91. MAR; 1 
RODATA,RD. NOWRT .N NOEXE, ,LONG 
: STRING C.<SATSSS ; TEST MODULE NAME 
STRING I,<SATSSS91> TEST MODULE NAME DESCRIPTOR 
RING I,< SSADS! 42W: ton DITIONS :> 
; FAO CTL STRING FOR MSG1 IN SUCCOMMON. MAR 
STRING 1,< *SSADS!42w: 'AS> 


; FAO CTL STRING FOR MSG3 IN SUCCOMMON.MAR 


D 14 
SATSSS91 SATS SYSTEM SERVICE TESTS S$ADJSTK (SUCC 1 mi tad 9 gs 7:01 VAX/VMS Macro V04 Page 4 
v04-000 DECLARATIONS “SEP=1984 04:34:12 CUETPSY.SRCJ SATSSS :. MAR; 1 (1) 
we ] -PSECT RWDATA,RD,WRT ,NOEXE,LONG 
00 PRIVMASK: -BLKQ ; ADDR OF PRIVILEGE MASK (IN ty 44 
§ y NEWADROUT: -BLKL 1 ; OUTPUT FIELD FOR SADJSTK NEWADR ARGUMENT 
1 ORIGUSP: . 1 + ORIGINAL VALUE OF USP (USER STAC cysgres? 
14 § F INALUSP -B 1 ; FINAL VALUE OF USP (USER STACK NTER) 
18 1 SUM: . 1 ; AREA FOR SUM OF ORIG NEWADR . abJust ARG 
0 1¢ 18 4 ADJUSP: B 1 3 SAVE AREA FOR ADJUSTED USP VALU 
0 1D 1¢ 5 FAIL CODE: B 1 ; FAILURE CODE (SEE EQUATED SYMBOLS ABOVE) 
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SATSSS91 YSTEM SERVICE TESTS SADJSTK (SUCC 16-SEP-1984 01:07:01 VAX/VMS Macro v04-00 Page 5 
v04=000 CONDITION TABLES mt ioe 4 4:34:12 LUETPSY. SRCISATSSS $91.MAR:1 (4) 
1p 7 .SBTTL CONDITION TABLES 
1 ; #eet® CONDITION TABLES FOR ADJSTK SYSTEM SERVICE eeeee 
1D 101 COND 1 WORD <ADJUST> = 
1D 1 g RO VALUED, 
1D 1 <POSITIVE VALUE>, = 
18 ! ¢ <NEGATIVE VALUE>,=- 
9000 O3A 1 6 WORD 0 
Pet SE BB 
S65 109 
060 110 COND 2, LONG <NEWADR>, © 
60 111 <ZERO VALUE> 
06 \1§ <NON-ZERO VALUE>, - 
060 11 
90000000 OBA 114 LONG 0 
OO00008E' 008E 115 “ADDRESS sy. 
009 116 ; 
009 117 COND 3,NULL 
093 118 
0093 119 COND 4,NULL 
0094 120 
0094 121 COND 5, NULL 
0095 1 é 
00000000 1 .PSECT SATSSS91,RD,WRT,EXE 
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SATSSS91 SATS SYSTEM SERVICE TESTS SADJSTK (SUCC 16-SEP-1984 7:01 VAX/VMS Macro v04-00 Page 
$042080 TM_SETUP, TM_CLEANUP g- SEP=1984 t ba; 97 3 UETPSY eae ees oy MAR: 1 . (3) 
5 .SBTTL TM_SETUP, TM_CLEANUP 
! ; : FUNCTIONAL DESCRIPTION: 
129 ; SETUP AND TM_CLEANUP ARE CALLED TO PERFOR 
0 130 : REQUIRED HOUSEKEEPT PING AT THE BEGINNING AND END, RESPECTIV ELY, OF 
i 1 : TEST MODULE EXECUTI 
0 0 5 : CALLING SEQUENCE: 
38 5: BSBW TM_SETUP BSBW TM_CLEANUP 
830 1 5 : INPUT PARAMETERS: 
0000 1 3 j 
0000 1 ; NONE 
0000 140; 
9000 141 ; IMPLICIT INPUTS: 
000 148 ; 
44 143 ; NONE 
0000 144: 
0000 145 : OUTPUT PARAMETERS: 
0000 146: 
0000 147: NONE 
0000 148; 
9000 149 ! IMPLICIT OUTPUTS: 
0000 151: TM_SETUP: COND TABLE INDEX REGISTERS (R2,3,4,5,6) CLEARED; 
0000 138 : ALL PRIVILEGES ACQUIRED. 
0000 153; 
9000 134 : COMPLETION CODES: 
$609 156 : EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
0000 157; 
9009 138 : SIDE EFFECTS: 
itd 160 : SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
0000 161: (VIA RSB) IF ERROR ENCOUNTERED. 
9000 168 ; 
000 165 ;-- 
000 164 
000 165 
00 196 
0 167 TM_SETUP:: 
53 D4 0 168 CLR Re : INITIALIZE 
534 16 CLRL ORR t 2. CONDITION 
54 iG 4 170 CLRL = soRG : tte. TABLE 
33 D4 ‘ 171 CLRL RS (por INDEX 
2 ps 1% CLRL = R6 see REGISTERS 
FFF3* 30 A BSBW  §MOD_MSG_PRINT : PRINT TEST MODULE BEGIN MSG 
00000900" 2008800 000 EF DE p 174 MOVAL TEST aco. Rt CC,TMD_ADDR : ASSUME END MSG WILL SHOW SUCCESS 
0000000 000 BF F 175 INSV  #SUCTESS7#0,43,M0D_MSG_ CODE : ADJUST STATUS CODE FOR SUCCESS 
38 176 MODE RNL KERNEL MODE TO ACCESS PHD 
59 00000000'9F D0 0048 17 MOVL wore ogke PHD,R9 GET PROCESS HEADER ADDRESS 
00000000'EF 69 DE O04F 178 MOVAL PuDSO PRIVISK(RO) .P PRI max ; GET PRIV MASK ADDRESS 
36 17 MODE  FROM,5$ ;: TO’ USER 
57 180 PRIV  _— ADD, ALL ; GET ALL PRIVILEGES 
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SATSSS91 SATS SYSTEM SERVICE TESTS SADUSTK (SUCC 16-SEP-1984 01:07:01 VAX/VMS Macro vO Pose 7? 
$042000 im_SETUP, TM. CLEANUP Breer T be Ba kcifs HOME HRS Macro VOGT GO uarsy P28 (7, 
77 «(+181 SSETPRN,S TEST MOD_NAME_D : SET PROCESS NAME 
B18 SS CHECR NORMAL : CHECK STATUS CODE RETURNED FROM SETPRN 
05 00B2 1 Ree : RETURN TO MAIN ROUTINE 
BS 184 TM_CLEANUP:: 
FFGA' 30 OOB3 185 BSBW —HOD_MSG.PRINT ; PRINT TEST MODULE END MSG 
05 00B6 186 RSB : RETURN TO MAIN ROUTINE 
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RESPECTIVELY. 

; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 


; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 
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BSBW CONDX 
WHERE X = 1,2,3,4,5 


INPUT PARAMETERS: 


woznze «oOo 
<r O--Ore- 2. 


6 CONTAIN CURRENT CON 


D TABLES 1,2,3,4,5, 


N 
CONFLICT SET TO NON-ZERO IF COND TABLE CONFLICT DETECTED. 


-SBTTL CONDITION SUBROUTINES = SETUP AND CLEANUP 
IMPLICIT OUTPUTS: 


FUNCTIONAL DESCRIPTION: 
A 
S 
Ss 
D 
0 
R2,3,4,5,6 PRESERVED 


CONFLICT = 0 
COMPLETION CODES: 
NONE 


BSBW CONDX 
IMPLICIT INPUTS: 


N 
N 
I 
N 
E 
L 
C 
0 
CALLING SEQUENCE: 
R2,3,4,5 
For CO 
OUTPUT PARAMETERS: 
SIDE EFFECTS: 
NONE 
RSB 
CLEANUP 
RSB 
RSB 
CLEANUP 
RSB 
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SATSSS91 SATS SYSTEM SERVICE TESTS $ADJSTK (SUCC i ot dt BS 9 010730) AX/VMS Macro ye egy 
v04-000 CONDITION SUBROUTINES = SETUP AND CLEANU 5-SEP=-1984 04:34:12 (CUETPSY.SRCIJSATSSS91.MAR;1 
B 45 COND3 
05 8B ¢$ RSB ; RETURN TO MAIN ROUTINE 
C 47 COND3_CLEANUP:: 
05 BC ‘3 RSB ; RETURN TO MAIN ROUTINE 
BO 49 COND4:: 
05 BD 29 RSB ; RETURN TO MAIN ROUTINE 
BE 1 COND4_ CLEANUP: : 
05 pee 26 RSB ; RETURN TO MAIN ROUTINE 
BF CONDS:: 
05 OOBF 54 RSB 3; RETURN TO MAIN ROUTINE 
bore 55 CONDS_CLEANUP:: 
05 C 56 RSB ; RETURN TO MAIN ROUTINE 
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SATSSS91 SATS SYSTEM SERVICE TESTS SaDUSTE (SUCC 1 AX/VMS Macro V04- P 1 
v04= FORM_CONDS g-3e P=] 9pe 8% wr: 9} OE They. eae igAressos maR:1 19, 
cl 7S .SBTTL FORM_CONDS 
3 oY 3 * FUNCTIONAL DESCRIPTION: 
C1 6¢ ; FORM_CONDS FORMATS AND PRINTS INFORMATION ABOUT 
C1 63 ; THE CURRENT ELEMERS IN EACH OF THE CONDITION TABLES. 
oc 65 ; CALLING SEQUENCE: 
cI e : BSBW FORM_CONDS 
3 63 + INPUT PARAMETERS: 
oc 4 : NONE 
tts 73 : IMPLICIT INPUTS: 
0C1 75: R2,3,4,5, ; CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
Qocl 278 cone OR COND TABLES 1,2,3.4,5, RESPECTIVELY. 
00C1 278: ees x’T’= TITLE TEXT FOR CONDX TABLE 
00C1 79 ; CONDX-TAB = ELEMENT TEXT FOR CONDX TABLE ( 
00C1 80 ; NDX_C = CONTEXT OF TH N ABLE F 
poct 3] : CONDX-E = DATA ELEMENTS OF THE CONDX TABLE ; 
00C1 BS + OUTPUT PARAMETERS: ‘ 
00C1 84; F 
gy sone | 
00C1 287 : IMPLICIT OUTPUTS: 
00C1 288: 1 
90¢1 89 ; NONE ; 
ita 91 : COMPLETION CODES: d 
00C1 3 : 1 
ita 4 : — 
00C1 295 : SIDE EFFECTS: 
00C1 %6 ; 
00C1 297: NONE 
00C1 98 ; 
90c1 99 :-- 
C1 300 
He 
C1 5 FORM_CONDS: : 
0C1 4 SFAO_S MSG1_INP_CTL,FAO_LEN,FAO_DESC, TESTNUM 
OE 5 > FORMAT CONDITIONS HEADER MSG 
FFID' 30 OOE 8 BSBW  OUTPUT_MSG t ... AND PRINT IT 
14 02 91 OO CMPBé ONDI~¢ #NULL : IS CONDITION 1 NULL ? 
03 «12 ES gj BNEQU 1 : NO == CONTINUE 
0007 31 Es 09 oa BRW FORM_CONDSX : YES == SUBROUTINE IS FINISHED 
00000000' EF 300099 era D E 11 “ MOVAL ~=—s«COND1_T sift ; SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO 
00000000"EF 0 3" EF Ag D F 1g MOVL COND! “TAB R2) MSG_B ; SAVE ADDR OF COND 1 CURR TEXT ELT FOR FAO 
02 9 19 1 MOVE #CONDT_C,MSG_CTXT SAVE CONDITION 1 CONTEXT FOR FAO 
1 14 MOV_VAL COND1_C, CONT “EtR2), MSG _baial ; : GIVE COND 1 DATA VALUE TO FAO 
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X/VMS Mac coy +399. Page 
~-SEP-1984 ETPSY.SRCJ Aire MAR; 1 
WRITE _MSG2 : FORMAT AND waive fe CONDITION 1 MSG 
#COND2_C ,#NULL : IS CONDITION 2 NULL ? 
3; NO -- CONTINUE 
FORM_CONDSX : YES == SUBROUTINE IS FINISHED 


COND 


: $ OF CONDITION 2 TITLE FOR 
COnDe STABERSI msc. g ; SAVE ADDR OF 
C 


F 

OND 2 CURR TEXT ELT FOR 
af XT FOR FAO 

TE 


#CON g2 C,MSG_CTX SAVE CONDIT CONTE 
COND C, COND2_ECR3].MSG_ BATA: GIVE 2 DATA VALUE TO FAO 
: FORMAT AND WR CONDITION MSG 
f CONS C,#NULL 1S CONDITION 


; NO == CONTINUE 
FORM_CONDSX t YES <= SUBROUTINE IS FINISHED 
COND sth : SAVE ADDRESS OF CONDITION 3 TITLE FOR 
COND Sti Ra] MSG B ; SAVE ADDR OF COND 3 CURR TEXT ELT FOR 
SAVE CONDITION 3 CONTEXT FOR FAO 
COND -f ai NDS. ets], MSG_ bata: GIVE COND 3 DATA VALUE TO FAO 
WRIT : FORMAT AND WRITE CONDITION 3 MSG 
BONDE. C,#NULL : IS CONDITION 4 NULL 
FORA COND SX : YES -- SUBROUTINE ts” FINISHED 
seas + SAVE ADDRESS OF CONDITION 4 TITLE FOR 
ee “tie R51. MSG_B ; SAVE ADDR OF COND 4 CURR TEXT ELT FOR 
#CONDZ_C €TxT~ SAVE CONDITION 4 CONTEXT FOR FAO 
COND4 cw tte “ECRS), MSG_ bATAI ; E CO 
; FOR RMAT AND WRITE CONDITION 4 MSG 


SCONDS C,#NULL ; IS CONDITION 5 NULL ? 
FORM COND SX : YES == SUBROUTINE IS FINISHED 
CONDS_T : SAVE ADDRESS OF CONDITION 5 TITLE FOR 


CONDS CTABERE MSG 8B ; SAVE ADDR OF COND 5 CURR TEXT. ELT FOR 

é SAVE CONDITION 5 CONTEXT FAO 

COND> = “COND etR6). MSG_ baTal : GIVE COND 5 DATA VALUE TO FAO 
WRITE~MSG2 ; FORMAT AND ORITE CONDITION 5 MSG 


; RETURN TO CALLER 


12 
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M14 
YSTEM SERVICE TESTS SADJSTK (SUCC yt 1 


ADDL 


MODE 
MFP 
MOVL 


FLAG 

FORM_CONDS 
FAIL_COD 
es R7 
R7,NEWADR a 
T0,10$,K 


#PRS hee 1GUSP 
NE! Pgh NEWADROUT 


SADJSTK_S enn tenn ha? US 


CMPL 


he LU 


MOVE 
MOVB 


L 
MOVL 


BNEQ 

ADDL2 

CMPL 
U 


MOVB 
MOVL 


SADJSTK_S 


TSTB 
BNEQ 
CMPL 


BEQLU 


R, 
DJUSTER 2, 
NEWADR=NEWADROUT 
RO, #SS$_NORMAL 
#SS$_NORMAL , EXPV 
#SCODE_ERR,FAIL_CODE 


#PRS_USP_ ADJUSP 


cope 


pet eADJUSP 


JUSP EX PV 
NEWADROUT 
#NEWADR UEARS in _CODE 


FAIL_CODE 
50$ 
SUM,R7 
NEWADRCR3) 
ORIGUSP,R7 
R7,ADJUSP 
3 § 
ie PV 
AIG 
ph dUSh. ERR. FAIL_CODE 


ORIGUSP, F INALUSP 
ACHODE=#PSL C_USER, 


LUSP 
FAILS COD 
RO, #SS$_NORMAL 
ne . 


71382 baidarse YOetbeS. £885 
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gpg coe tos BE PRINTED ? 
YES -- FMT & PRINT ALL CONDS FOR THIS T.C. 
INDICATE NO FAILURE YET FOR THIS Ley CASE 


SIGN-EXTEND ADJUST VALUE TO LONGWO 
GET VALUE FOR USP (USER STACK PTR) 


; INTO KERNEL MODE TO AVOID USER SP 


weneeee SYSTEM SERVICE CALL WHICH IS THE 


Sete te Ge Ge te 


REMEMBER USER SP VALUE BEFORE TEST 


t SEPARATE LONGWORD FOR SADJSTK OUTPUT 


SUBJECT OF THIS TEST CASE *eeee# 


CODE RECEIVED = CODE EXPECTED ? 
YES == GO DO 


VED VALUES 
«e+ AND INDICATE ERROR FOR LATER 


; SAVE ‘‘ADJUSTED*’ USP VALUE 
: mY ERRORS ete ERED YET ? 


S == SKIP THIS VERIFICATION 
ore nag a {i ““ADJUSTED’’ VALUE ? 
NO == LOAD UP EXPECTED AND 
«e+ RECEIVED V 
«ee AND INDICATE ERROR FOR LATER 


ANY ERRORS oy aa ts yer ? 
YES == SKIP THIS VERIFICATION 
SUM OF ORIGINAL Tr + ADJUST VALUE 
WAS NEWADR ORIGINALLY ZERO ? 
NO -- LEAVE R7 AS IS 
YES == ADD ORIGUSP TO ADJUST VALUE 


IS ADJUSP WHAT WE EXPECTED 

YES == GO ON TO NEXT VERIFICATION 
whe CTED A 

«e+ AND INDICATE ERROR FOR LATER 


SET ORIGINAL USP_VALUE UP FOR FINAL 
RE-ADJUST USER STACK BACK TO ORIGINAL 


ANY ERRORS ENCOUNTERED YET ? 
S_-= SKIP THIS VERIFICATION 
CODE RECEIVED = CODE EXPECTED ? 

~~ ON TO MORE VERIFICATION 
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SATSSS91 SATS SYSTEM SERVICE TESTS S$ADJSTK (SUCC Ig-SEP-19 4 0: 7:01 VAX/VMS Macro V <$9 Page 14 
v04-000 VERIFY -SEP=1984 04:34:12 (CUETPSY.SRCJSATSSS91.MAR; 1 (1) 
00000000" EF 00000'8F oD 08 464 MOVL #SS$ NORMAL , EXPV : NO -- LOAD UP EXPECTED AND 
5600 88 "EF 50 b9 8 465 MOVL RO RE cy t se. RECEIVED VALUES 
QOOOOOIC'EF 04 1A 466 Se MOVE Teh E LERR,FAIL_CODE : ... AND INDICATE ERROR FOR LATER 
7  00000000'8F oB 1 468 " sMEPR ss #PRS_USP,R7 : GET CURRENT USP VALUE ... 
0000000C'EF 57 D4 8 46 CMPL _——R7, ORIGUSP t ... WAS IT RESTORED TO ORIGINAL ? 
ey F 470 BEQLU 7 : YES == ALL FINISHED WITH VERIFICATION 
0000000C'EF  00000000°EF pA 1 471 MTPR —- PR$_USP, ORIGUSP + NO == RESTORE ORIGINAL USP VALU 
QOOOOIC'EF 95 47g TSTB  —sFAIC_CObE : ANY ERRORS ENCOUNTERED YET ? 
19 1 2 42+. 47 BNEQ 708 : YES == DON'T REPORT THIS ONE 
concen * QBOO'Er 87 OD Ose ape movt | oRPeabeenn _— +» RECEIVED y ALues > “NO 
itdtatat 5 3 o 26 426 en MOVE #RESTORE_ERR,FAIL_CODE : ... AND INDICATE ERROR FOR LATER 
035D 478 "MODE ~—s FROM, 108 : GET BACK TO USER MODE 
O38 480 : THE FOLLOWING CASE STATEMENT CHOOSES AN oAPPROPRIATE ERROR MESSAGE 
O35E 481 : BASED ON A VALUE IN FAIL_CODE. A VALUE OF ZERO IMPLIES NO ERRORS. 
O33 486 : EACH ERR_EXIT MACRO TERMINATES THE MN URIEY SUBROUTINE. THE ERR_EXiT 
0 SE 48 : MACROS APPEAR HERE BECAUSE ‘THEY MAY NOT BE ISSUED IN A KERNEL MODE 
Sa2e rtf} 3 ROUTINE. 
05 00 O000001C'EF BF O35E 486 ; CASEB FAIL_CODE,#0,45 : BRANCH TO CORRECT ERR_EXIT MACRO 
0366 487 80S: : START OF CAS WORD DISE. <ACEMENTS 
01BD' 0366 488 «WORD VERIFYX-80$ : FAIL_CODE = 
OOOF 0368 489 "WORD 90$-80$ : FAILZCODE = scope ERR 
OOSE' 036A 490 «WORD 100$-80$ 3 FAILICODE = NEWADR_ERR 
OOBF' 036C 491 "WORD 110$-80$ : FAILTCODE = ADJUSP7ERR 
010C' 036 43¢ “WORD 120$-80$ : FAILTCODE = SCODE2~ERR 
0160" 0370 49 "WORD 130$-80$ : FAl — = RESTORE ERR 
O1AE 31 oF 494 =e BRW VERIFYX : BRANCH PAST CASE ROUTINES 
0 75 496 fee ERR_EXIT LONG,<INCORRECT STATUS CODE RETURNED FROM ADJSTK> 
St 498 *  ERR_EXIT LONG, <ADJUSTED STACK POINTER VALUE NOT>, - 
O5¢4 499 ‘cy RETURNED IN NEWADR ARGUMENT> 
0425 201 a ERR_EXIT LONG,<UNEXPECTED RESULTANT STACK POINTER VALUE> 
‘78 308 wt ERR_EXIT LONG,<UNEXPECTED STATUS CODE FROM NON-SUBJECT SADJSTK> 
4C6 505 " ERR_EXIT LONG, <2nb SADJSTK DID NOT RE-ADJUST USP BACK TO>, - 
4C6 206 ORIGINAL VALUE> 
308 ; END OF CASE ROUTINES 
5 2% VERIFYX: 
05 05 511 RSB ; RETURN TO CALLER 
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VFY_CLEANUP: : 
RSB 
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~SBTTL VFY_ CLEANUP 
FUNCTIONAL DESCRIPTION: 


VFY CLEANUP EXECUTES SYSTEM SERVICES TO UNDO THE 
EFFECT OF THOSE ISSUED IN THE VERIFY SUBROUTINE. VFY_CLEANUP MUST 
ASSUME THAT VERIFY MAY NOT HAVE EXECUTED IN ITS ENTIRETY it AN 
ERROR IS FOUND). ALSO, VFY_ CLEANUP MAY ISSUE SS CHECK OR ERR_EXIT 
ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS; THIS IS REQUIRED 
IN THE EVENT THAT VFY CLEANUP IS CALLED DURING ERROR PR oe NG, 
WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN 
POSSIBLY DISCOVERING A SECOND ERROR. 


CALLING SEQUENCE: 
BSBW VFY_CLEANUP 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
5.6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 


nfo CON D TABLES 1 1,2,3,4,5, RESPECTIVELY. 
ton NOX’ E = ADDRESS ao TABLE OF DATA VAL UES FOR CONDX 
T IF THE CONTEXT OF TABLE x X IS A SYSTEM SERVICE 


AB 
ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM 
FOR CONDX aE. 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
(VIA RSB) IF ERROR ENCOUNTERED. 


; RETURN TO CALLER 
END 


} 
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SATSSS91 SATS SYSTEM SERVICE TESTS $ADJST ucc 19-S60-1 98% 6 97:04 AX/VMS Macro V04- 
Symbol table =SEP=1984 04:34: UETPSY.SRCISATSSS 
$$ x 4 9 R FAO_L RHARRREEE 4 
$CHA = F INALUSP 10 R 3 
SSSCHARS1 = A FORM_CON C1 RG 4 
SSSCHARS 2 FORM CONDSX 3 RQ 4 
SSSCHARS = LONG = 0 G 
SSSCHARSS = MOD_MSG_CODE eeeeeeee 6X 4 
SSSCHARSS = MOD" MSG" PRINT eeeerene 4 
SSCOND_A = MSGT_INP_CTL 44 4d R H 
SSSSTRINGS = 1 MSG3_ERR_CTL 39 RG 
SSSSTRINGSZ = 5 MSG_A eeeeeeee x 4 
$$T = 4 MSG_B aeeneeee =X 4 
ADJUSP i R 03 MSG_CT eeeeeere YX 4 
ADJUSP_ERR = 9 MSG_DATA1 weeeeeee 4 
ADJUST O38 3 AR 03 NEW 6008 O8A R 03 
= 00000001 NEWADROUT 0000008 R 03 
CFLAG teenreeee x 4 NEWADR_ERR = 8 00 
CHARTN eeetenee =X 4 NOTA = 0000 G 
CHM_CONT eeeeeeeer =X 04 NULL = 00000014 6G 
COMP SC teeerere =X 4 ORIGUSP 0000000C R 03 
CONDT 0 900087 RG 4 OUTPUT_MSG eeeeeeee XX 04 
COND1_C = 8 0000 ¢ V eeaneere = =X 04 
COND1_ CLEANUP 4444 RG 04 PHD$Q_PRIVMSK = 00000000 
COND1—E 0000005A R 03 PRS$_USP aeeeeere = X 04 
COND1_H 00000024 RG 03 PRIUMASK 0000000 R 03 
COND1_T saa SE! R 03 PRIV_ARGS = 00000002 
COND1— TAB 00000025 R 03 PROCESS _ERR aeeteeee XK 04 
COND2 00000089 RG 04 PSLS$C_USER = 00000003 
pad = BORA QUAD = 00000008 G 
COND2~ CLEANUP 000 in RG 04 RECV eeeeeeee XX 04 
CONDE 000008A R 03 RESTORE _ERR = 00000005 
COND2_H 98 0067 RG 03 REST_REGS teeeeere XK 04 
COND2_T 0000 2 ® 03 SAVE- REGS eeeeeeee =X 04 
COND2_ TAB 8 $ 68 R 03 SCODE2_ERR = 00000004 
COND 3 0 RG 04 SCODE_E = 00000001 
COND3_C = 00000014 $S$_NORMAL aeeeeeee 8 §=6X 8 
COND3_ CLEANUP 0000 RG 6 SUCTESS aeeeeeee § 4 
COND3_H 4 RG 3 SUM 00000014 R b 
COND 3_ 00092 R 03 SYSSADJSTK ateeeeee GX 4 
COND3_TAB 494 ® 03 SYSSCMKRNL aeeeeeee GX 04 
COND4 00008D RG 4 SYS$FAO eeeeeeee = X 04 
COND4_C = $ 00014 SYSSSETPRN aeeeeeee GX 04 
COND4~ CLEANUP RG 04 SYSSSETPRV eeeneeee GX 04 
COND4—H 93 RG 3 TESTNUM eeeeeeee XK 04 
COND4_T 3 g ; TEST_MOD_NAME Sa a4 RG if 
COND4— TAB 2 TEST_MOD_NAME_D R 
ONDS F RG 4 TEST-MOD-SUCC eeeeeeee XK 04 
COND5_C = 4 TMD_ADDR aeeeeeee =X oe 
COND5~ CLEANUP 60 RG 4 TM_CLEANUP 000083 RG 4 
COND5_H 0 4 RG ; TM” SETUP 000 RG 4 
ONDS—T 3 94 R VERIFY 1C€3 RG 4 
5~ TAB 000094 R 3 YERIFYX 2 me 4 
CTL$GC_PHD eeeeeeeer § X 04 VFY_ CLEANUP 000524 RG 4 
DESC = 00000010 G wort = 00000002 6G 
EFLAG teterere = § 6X 4 WRITE_ASG2 teeeeeee = X 04 
EXPV eereeere x 4 
FAIL_CODE 0000001C R 3 
FAO_BESC eererere 6X 4 


D 15 


SATSSS91 SATS SYSTEM SERVICE TESTS SADUSTR (succ yo =1384 8} 7 0) AX/VM 
Psect synopsis 4; UETPS 
powaasocaneae ema e ae} 
! Psect synopsis : 
+ ween rere coe ae => 
PSECT name Allocation PSECT No. Attributes 
5 eS a 444 8 ( 3-3 99 ( 0.) NOPIC USR CON ABS LCL NOSHR NO 
SABSS 8 8 ( az 1¢( 1.) NOPIC USR CON ABS LCL NOSHR 
RODATA 000 ; + 81.) ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR NO 
RWDATA BERR Oe ( 133-3 ( -) NOPIC USR CON REL LCL NOSHR NO 
SATSSS91 00000525 (¢ 1317.) 4 ( 4.) NOPIC USR CON REL LCL NOSHR 
pfoeomeer mee seme een ee er een ee + 
H Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 08008 -08 00:00:00.2 
Command processing 132 0: 8:80 -8 0:00:0 10 
Pass 1 244 00:00:06. 0:00:10.9 
symbol table sort 0 00: 3: 0.5 0:00: +09. 26 
Pass 2 "Ne a 701.78 00:00: Oe 8 
Symbol table output 1 00:00:00.09 Ba! :00:00.09 
Psect synopsis output 3 00:00:00.03 0:00:00.03 
Cross-reference output g ae BS 00:00:00.00 
Assembler run totals 54 00:00:09.6 00:00:16.83 


The working set Limit was 1500 pages. 

34049 bytes (67 pages) of virtual memory were used to buffer_the intermediate cod 

There were 20 pages of symbol table space allocated to hold 343 non-local and 32 local symbols. 
39" source Lines were read in Pass 1, producing object records in Pass 2. 

33 pages of virtual memory were used to define 24 macros. 


a Sos 


Macro Library name 
.$255$DUA28: CSHRLIBIUVETP. net 1 9 
“$255$DUA28: (SYS.OBJJLIB.MLB; 1 
“$255$DUA28: SYSLIBISTARLET.. MLB;2 1 

TOTALS ‘all Libraries) 2 


636 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 


NORD 
RD 


RD 
RD 
RD 


MACRO/LIS=LIS$:SATSSS91/0BJ=0BJ$:SATSSS91 MSRC$:SATSSS91/UPDATE=(ENHS: SATSSS91) +EXECMLS/LIB+SHRLIBS:UETP/LIB 


Macro V04- Page 
Bae oe yee sO MAR: 1 ° 


oe NOVEC BYTE 


WRT NOVEC BYTE 
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7 
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